IF exists(SELECT * FROM dbo.sysobjects WHERE name='WEB_leraars' AND xtype='P') 
BEGIN
	DROP PROCEDURE WEB_leraars
END
GO

CREATE   procedure WEB_leraars
(@iNr char(7))
as
set nocount on

declare @klas varchar(5)
set @klas=leerlingen.dbo.WEB_klasnaam(@iNr)

--De hoofding
select 0 as volgNr,'' as naamcode,'<?xml version="1.0"  encoding="ISO-8859-1" ?>' as tekst
union 
select 1,'','<klas klasNaam = "' + @klas + '">'
union
select 2,'','<klasleraar naamcode = "' + k.naamcode + '">' + isNull(voornaam,'') 
	+ ' ' + isNull(achternaam,'') + '</klasleraar>'
	from leraars..klasleraars as k
	left join leraars..leraars as l on l.naamcode = k.naamcode
	where k.klas = @klas
union 
select 3,'','<leraars>'
union
select 4,volgnummer, '<leraar naamcode = "' + naamcode + '" vakcode="' + isNull(vakcode,'') + '">'
	+ '<naam>' + isNull(volleNaam ,'')
  	+ '</naam><vak>'  + isNull(vaknaam,'') + '</vak></leraar>'
	from leraars.dbo.alleIndividueleLeraarsVakcodes(@iNr) 
union
select 5,'','</leraars>'
union
select 6,'','</klas>'
order by volgNr,naamcode